home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / input.arc / MHINIT.SUB < prev    next >
Encoding:
Text File  |  1987-08-20  |  1011 b   |  40 lines
  1. '  Mh.Init      Initializes values for other routines
  2. '  Copyright 1987 MicroHelp, Inc. - All Rights Reserved
  3.  
  4. '  Determines Monitor and sets value accordingly. No input is necessary.
  5. '  Output is Monitor% plus cursor sizes
  6.  
  7. '  Call Mh.Init (Monitor%,_
  8. '       Mh.Cursor.Normal.Start%,Mh.Cursor.Normal.End%,_
  9. '       Mh.Cursor.Insert.Start%,Mh.Cursor.Insert.End%)
  10.  
  11. SUB Mh.Init (Monitor%, Mh.Cursor.Normal.Start%, Mh.Cursor.Normal.End%, Mh.Cursor.Insert.Start%, Mh.Cursor.Insert.End%) STATIC
  12.  
  13.     DEF SEG = 0
  14.     IF (PEEK(&H410) AND &H30) = &H30 GOTO Monochrome.attributes' Goto mono
  15.  
  16. Color.attributes:
  17.       
  18.     Monitor% = &HB800
  19.     COLOR 14, 1, 1
  20.     Mh.Cursor.Normal.Start% = 0
  21.     Mh.Cursor.Normal.End% = 7
  22.     Mh.Cursor.Insert.Start% = 4
  23.     Mh.Cursor.Insert.End% = 7
  24.     GOTO Init.Exit
  25.  
  26. Monochrome.attributes:
  27.  
  28.     Monitor% = &HB000
  29.     COLOR 15, 0, 0
  30.     Mh.Cursor.Normal.Start% = 0
  31.     Mh.Cursor.Normal.End% = 13
  32.     Mh.Cursor.Insert.Start% = 5
  33.     Mh.Cursor.Insert.End% = 13
  34.  
  35. Init.Exit:
  36.  
  37.     DEF SEG
  38.     
  39. END SUB
  40.